home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / archivers / magicarchiver / magicarchiver.rexx < prev    next >
OS/2 REXX Batch file  |  1997-12-06  |  8KB  |  215 lines
  1. /* Application created by MUIBuild */
  2.  
  3. address MAGICARCHIVER
  4.  
  5. MUIA_Application_Iconified = 0x8042a07f
  6. MUIA_FillArea = 0x804294a3
  7. MUII_FILLSHINE = 136
  8. MUIA_Text_SetMax = 0x80424d0a
  9. MUII_TextBack = 4
  10. MUII_FILLBACK = 135
  11. MUIA_Group_Columns = 0x8042f416
  12. MUIA_String_Accept = 0x8042e3e1
  13. Application_OpenConfigWindow = 0x804299ba
  14. TRUE = 1
  15. ASLFR_InitialPattern = 0x8008000A
  16. MUIA_Background = 0x8042545b
  17. MUII_FILLBACK2 = 138
  18. MUII_GroupBack = 35
  19. MUII_HSHINEBACK = 139
  20. MUII_RegisterBack = 27
  21. MUIA_Slider_Min = 0x8042e404
  22. MUIA_Slider_Max = 0x8042d78a
  23. MUIA_Slider_Level = 0x8042ae3a
  24. MUIA_String_Contents = 0x80428ffd
  25. Set = 0x8042549a
  26. MUIA_Text_Contents = 0x8042f8dc
  27. Notify = 0x8042c9cb
  28. MUIA_Group_ActivePage = 0x80424199
  29. MUIV_Group_ActivePage_Next = -3
  30. MUIV_List_Insert_Bottom = -3
  31. MUIA_List_Format = 0x80423c0a
  32. MUIA_Text_SetMin = 0x80424e10
  33. MUIA_Text_HiChar = 0x804218ff
  34. MUIA_String_Format = 0x80427484
  35. MUIV_String_Format_Center = 1
  36.  
  37. options results
  38. setvar num 1
  39. setvar init 0
  40. call help
  41. address command 'assign program: muirexx:MagicArchiver'
  42. address command 'run sys:rexxc/rx program:Routines.rexx'
  43. application
  44. window ID Titre COMMAND """program:comm Quitter""" TITLE """Magic Archiver V0.2Beta - (C) Le Marec S. 1997"""
  45. group ID Root PORT MAGICARCHIVER REGISTER LABELS "Archivage,Modules,Maintenance,Configuration"
  46.   group ID Archivage
  47.     text ID Txt1 ATTRS MUIA_String_Format MUIV_String_Format_Center LABEL ""
  48.     group ID Mode FRAME HORIZ LABEL "Mode de fonctionnement"
  49.       cycle LABELS "Manuel (/Automatique),Automatique (/Manuel)"
  50.       cycle LABEL  "Total (/Choisis),Choisis (/Total)"
  51.     endgroup
  52.     button ID TousFichiers   PRESS COMMAND """program:comm CreatTout""" LABEL "Tous Les Fichiers"
  53.     button ID NouveauFichier PRESS COMMAND """program:comm ArchTout"""  LABEL "Nouveau Fichiers"
  54.     group HORIZ
  55.       button ID Quitter PRESS COMMAND """Quit""" HELP help.quit LABEL "Quitter"
  56.       button ID APropos HELP help.aprop LABEL "A propos"
  57.       button ID Cacher PRESS COMMAND """Hide""" LABEL "Cacher"
  58.     endgroup
  59.   endgroup
  60.   group ID Modules COMMAND """command:comm Init"""
  61.     group HORIZ
  62.       label "Mode :"
  63.       cycle ID Mde HELP help.modea LABELS "Lha,Lzx,Zoo"
  64.       slider ID sld COMMAND """program:comm SetMod""" ATTRS MUIA_Slider_Min 1 MUIA_Slider_Max 30 MUIA_Slider_Level 1
  65.       image ID ModM COMMAND """program:comm ModM""" SPEC "6:31"
  66.       image ID ModP COMMAND """program:comm ModP""" SPEC "6:30"
  67.       string ID NumMo
  68.     endgroup
  69.     group FRAME LABELS "Détails Module"
  70.       group ID NArch HORIZ
  71.         label LEFT "Nom de l'archive :"
  72.         getvar init
  73.         string ID NomA
  74.         image ID req1 COMMAND '"program:comm NomA"' SPEC "6:19"
  75.       endgroup
  76.       group ID RC1 HORIZ
  77.         label LEFT "Répertoire source 1 :"
  78.         string ID Src1
  79.         image ID Sreq1 COMMAND """program:comm Src1""" SPEC "6:19"
  80.       endgroup
  81.       group ID RC2 HORIZ
  82.         label LEFT "Repertoire source 2 :"
  83.         string ID Src2
  84.         image ID Sreq2 COMMAND """program:comm Src2""" SPEC "6:19"
  85.       endgroup
  86.       group ID RC3 HORIZ
  87.         label LEFT "Répertoire source 3 :"
  88.         string ID Src3
  89.         image ID Sreq3 COMMAND """program:comm Src3""" SPEC "6:19"
  90.       endgroup
  91.       group ID RC4 HORIZ
  92.         label LEFT "Répertoire source 4 :"
  93.         string ID Src4
  94.         image ID Sreq4 COMMAND """program:comm Src4""" SPEC "6:19"
  95.       endgroup
  96.       group ID RC5 HORIZ
  97.         label LEFT "Répertoire source 5 :"
  98.         string ID Src5
  99.         image ID Sreq5 COMMAND """program:comm Src5""" SPEC "6:19"
  100.       endgroup
  101.       group ID RC6 HORIZ
  102.         label LEFT "Répertoire source 6 :"
  103.         string ID Src6
  104.         image ID Sreq6 COMMAND """program:comm Src6""" SPEC "6:19"
  105.       endgroup
  106.       group ID RC7 HORIZ
  107.         label LEFT "Répertoire source 7 :"
  108.         string ID Src7
  109.         image ID Sreq7 COMMAND """program:comm Src7""" SPEC "6:19"
  110.       endgroup
  111.       group ID RC8 HORIZ
  112.         label LEFT "Répertoire source 8 :"
  113.         string ID Src8
  114.         image ID Sreq8 COMMAND """program:comm Src8""" SPEC "6:19"
  115.       endgroup
  116.       group ID RC9 HORIZ
  117.         label LEFT "Répertoire source 9 :"
  118.         string ID Src9
  119.         image ID Sreq9 COMMAND """program:comm Src9""" SPEC "6:19"
  120.       endgroup
  121.       group ID RC10 HORIZ
  122.         label LEFT "Répertoire source 10 :"
  123.         string ID Src10
  124.         image ID SreqA COMMAND """program:comm SrcA""" SPEC "6:19"
  125.       endgroup
  126.       group ID RD HORIZ
  127.         label LEFT "Répertoire destination :"
  128.         string ID RepD
  129.         image ID RrepD COMMAND """program:comm RepD""" SPEC "6:19"
  130.       endgroup
  131.       group ID DD HORIZ
  132.         label "Disquette Destination :"
  133.         string ID Disk
  134.         image ID ReqD COMMAND """Program:comm Disk""" SPEC "6:19"
  135.       endgroup
  136.       group ID Pat HORIZ
  137.         label LEFT "Paterne"
  138.         string ID Patrn
  139.         label LEFT "Archivage Automatique :"
  140.         cycle ID AM LABELS "OUI,NON"
  141.       endgroup
  142.       group ID Boutons HORIZ
  143.         button ID Nouv LABEL "Nouveau"
  144.         button ID Effacer PRESS COMMAND """program:comm2 REQ""" LABEL "Effacer module"
  145.       endgroup
  146.     endgroup
  147.     button ID Sv PRESS COMMAND """program:comm SAUVM""" LABEL "SAUVER le MODULE"
  148.   endgroup
  149.   group ID Maintenance
  150.     group ID MA FRAME HORIZ LABELS "Maintenance Archive"
  151.       button ID Arch PRESS COMMAND """program:comm Arch""" LABEL "Archivage"
  152.       button ID Creat PRESS COMMAND """program:comm Creat""" LABEL "Création"
  153.       button ID Restau PRESS COMMAND """Program:comm Restau""" LABEL "Restauration"
  154.     endgroup
  155.     group ID mod HORIZ
  156.       label LEFT "Module N° :"
  157.       string ID NomM
  158.     endgroup
  159.     group HORIZ
  160.       group ID CR FRAME LABELS "Compte Rendu"
  161.         list ID LCR PORT MAGICARCHIVER
  162.         button LABEL "Lister Archive"
  163.         button LABEL "Imprimer CR"
  164.       endgroup
  165.       group ID LstArc FRAME LABELS "Liste des Archives"
  166.         list ID Liste PRESS COMMAND """Program:comm Select""" ATTRS MUIA_List_Format '"MIW=80 BAR,MIW=20"'
  167.         group ID LST FRAME HORIZ LABELS "Actions sur module"
  168.           button ID OUI COMMAND """program:comm OUI""" LABEL "OUI"
  169.           button ID NON PRESS COMMAND """program:comm NON""" LABEL "NON"
  170.           button ID Eff PRESS COMMAND """program:comm Eff""" LABEL "Effacer"
  171.         endgroup
  172.         group FRAME HORIZ LABELS "Action sur liste"
  173.           button ID Charge LABEL "CHARGE"
  174.           button ID Sauve PRESS COMMAND """program:comm SAUVE""" LABEL "SAUVE"
  175.           button ID MAJ PRESS COMMAND """program:comm MAJ""" LABEL "Mise A Jours"
  176.         endgroup
  177.       endgroup
  178.     endgroup
  179.   endgroup
  180.   group ID Configuration FRAME
  181.     group ID c1 HORIZ
  182.       label "Répertoire contenant les archives :"
  183.       string ID Arc COMMAND """program:comm Arc"""
  184.       image ID RArc COMMAND """program:Comm RArc""" SPEC "6:19"
  185.     endgroup
  186.     group ID c3 HORIZ
  187.       label "Répertoire Contenant les données à compresser :"
  188.       string ID Src COMMAND """program:comm Src"""
  189.       image ID Rsrc COMMAND """program:comm RSrc""" SPEC "6:19"
  190.     endgroup
  191.     group ID c4 HORIZ
  192.       label "Répertoire de restauration :"
  193.       string ID Rest COMMAND """program:comm Rest"""
  194.       image ID RRest COMMAND """program:comm RRest""" SPEC "6:19"
  195.     endgroup
  196.     group ID c5 HORIZ
  197.       label "Nom du fichier liste actuel :"
  198.       string ID ALst COMMAND """program:comm ALst"""
  199.       image ID RALst COMMAND """program:comm RALst""" SPEC "6:19"
  200.     endgroup
  201.     button ID SC PRESS COMMAND """program:comm SC""" LABEL "Sauver configuration"
  202.   endgroup
  203. endgroup
  204. group ID S FRAME LABELS "Compte Rendu :"
  205.   list ID Stat PORT MAGICARCHIVER HELP """Liste log."""
  206. endgroup
  207. endwindow
  208. address command 'sys:rexxc/rx program:comm.rexx Init'
  209. exit
  210. help:
  211. help.quit="""Quitter l'application"""
  212. help.aprop="""A propos de lappli"""
  213. help.modea="""Choisir le modes d'archivage"""
  214. return
  215.